home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00172_Rollover help on background.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  660 b   |  39 lines
  1. property pSpr
  2.  
  3. on beginSprite me
  4.   global gGameLevel, gFileSep
  5.   case gGameLevel of
  6.     0, 1:
  7.       newBG = "bg1"
  8.     2:
  9.       newBG = "bg2"
  10.     3:
  11.       newBG = "bg3"
  12.     4:
  13.       newBG = "bg4"
  14.     5:
  15.       newBG = "bg5"
  16.     otherwise:
  17.       newBG = randomFromList(["bg4", "bg5"])
  18.   end case
  19.   pSpr = sprite(me.spriteNum)
  20.   pSpr.member.fileName = the pathName & "bg_picts" & gFileSep & newBG & ".jpg"
  21. end
  22.  
  23. on mouseEnter me
  24.   if not draggingAnything() then
  25.     showDrinkContents(#thebar)
  26.     refreshHelpWindow(#thebar)
  27.   end if
  28. end
  29.  
  30. on mouseLeave me
  31.   if not draggingAnything() then
  32.     hideToolTip()
  33.   end if
  34. end
  35.  
  36. on mouseDown
  37.   replaceDraggingAnything()
  38. end
  39.